' Test ak Remaining SFunctions 2-28.txt
' along with testing regular "easy to code" SFunctions get more practice with 
' Set abd Get our array substitute.

' oh try another way to assign with &
day date
clock time
xpix = xmax - 200
tag xpix, 10, clock
tag xpix, 30, day

sp1 chr 32
sp7 ncopy 7, sp1
test & sp7, B is Fat Left and Right!, sp7
. test string: ";test;"
bltrim ltrim test
brtrim rtrim test
btrim trim test
bshout ucase test
bwhisper lcase test
.
. ltrim B ";bltrim;"
.
. rtrim B ";brtrim;"
.
. B is looking trim ";btrim;"
.
. SHOUTING: ";bshout;"
.
. whisper: ";bwhisper;"
.
' Building an Astring with nCopy of embedded delimiter (space) to split it, brilliant! 
fatx10 ncopy 10, fat!
'trim the fat
fatx10 trim fatx10
.
. fatx10 
x10 split fatx10, sp1
. x10 split fatx10, sp1 is;
cnt = 1
hyph chr 45 
[
	x get x10, cnt
	. /   ; cnt;.;/ ; x
	'OK for fun lets mod with concatenation (binding I am calling it) 
	x & cnt,hyph,x
	'test modified x debug
	'. x
	' and back into the Astring changed
	' set is like a(i) = change ( I was doing change first )
	set x10, cnt, x
	'debug
	'. x10
	+= cnt, 1
	jmp cnt > 10
]
'another way to assign a string
& c,+,
. & c,+, is ;c

'checks on our new join delimiter
c1 asc c
. c1 asc c is ;c1
c2 chr c1
. c2 chr c1 is ;c2

'' this needs fixed I am too tired to think straight
'' I think it was x10 that needed a trim, YES!
'' and this kind of join is really a rejoin
'' that converts an Astring into another type of Astring
j join x10,c
. j join x10, c is ; j

